home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1987 April / 1987-04.d64 / screen mapper (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  71 lines
  1. 10 pr=1:rem set pr=0 for 1526 series, pr=1 for 1525 series
  2. 20 sm=1024:cm=55296:rem sm=3072:cm=2048 on the plus 4/16
  3. 30 b$=chr$(8):c1$=chr$(14):c$=chr$(15):rem printer codes
  4. 40 ifpr=0thenb$=""
  5. 50 d$=chr$(207):e$=chr$(165):f$=chr$(163)
  6. 60 print"[147]":print"[145]           memory map printer           "
  7. 70 print" 1 [146] small screen map"
  8. 80 print" 2 [146] small color map"
  9. 90 print" 3 [146] small graphic 320 x 200 map"
  10. 100 print" 4 [146] large screen map"
  11. 110 print" 5 [146] large color map"
  12. 120 print" 6 [146] large graphics map"
  13. 130 print" 7 [146] quit"
  14. 140 print"make your selection"
  15. 150 geta$:ifa$=""then150
  16. 160 a=asc(a$)-48:ifa=7then210:ifa<1ora>6then150
  17. 170 gosub490:onagosub220,230,240,340,360,380
  18. 180 print"[147]print another ?"
  19. 190 geta$:ifa$=""then190
  20. 200 ifa$="y"then60
  21. 210 print"[147]":end
  22. 220 s$="screen":s=sm:gosub620:return
  23. 230 s$="color":s=cm:gosub620:return
  24. 240 print#4,c1$"small graphics map"
  25. 250 x=24:gosub500
  26. 260 print#4,"0   .    1    .    2    .    3"
  27. 270 print#4,"         0         0         0"
  28. 280 print#4,"         0         0         0"
  29. 290 fori=10to200step10:print#4,c$;
  30. 300 forx=1to32:print#4,d$;:next:print#4,"[212]";:print#4,i;b$
  31. 310 nexti
  32. 320 print#4,c$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  33. 330 gosub520:return
  34. 340 print#4,c1$"          large screen map"
  35. 350 x=22:gosub500:s=sm:s$=str$(s):gosub530:return
  36. 360 print#4,c1$"          large color map"
  37. 370 x=22:gosub500:s=cm:s$=str$(s):gosub530:return
  38. 380 print#4,c1$"         large graphics map"
  39. 390 x=18:gosub500
  40. 400 print#4,"[176][195] this block is address 0,0. add 10 going down and across"b$
  41. 410 print#4,c$"[221]"b$
  42. 420 forx=10to200step10
  43. 430 print#4,c1$;:fori=1to32:print#4,d$;:nexti
  44. 440 print#4,e$b$
  45. 450 print#4,c1$;:fori=1to33:print#4,e$;:nexti
  46. 460 print#4,b$:nextx
  47. 470 print#4,c1$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  48. 480 gosub520:return
  49. 490 print"[147]printing...":open4,4:return
  50. 500 ifpr=0thenopen6,4,6:print#6,chr$(x):close6
  51. 510 print#4,c$:return
  52. 520 print#4,c$:print#4:close4:return
  53. 530 print#4,"[176][195] this block starts at"s$". add 40 for each row you go down."b$
  54. 540 print#4,c$"[221]"b$:forx=1to25
  55. 550 print#4,c1$;:fori=0to39
  56. 560 print#4,d$;:nexti:print#4,b$
  57. 570 print#4,c1$;:fori=0to39
  58. 580 print#4,e$;:nexti:print#4,b$:nextx
  59. 590 print#4,c1$;:fori=0to39
  60. 600 print#4,f$;:nexti
  61. 610 x=24:gosub500:forx=stos+960step40:print#4,x:next:gosub520:return
  62. 620 print#4,c1$"   small "s$" map"
  63. 630 p$="      ":ifs=cmthenp$="       "
  64. 640 x=24:gosub500
  65. 650 print#4,p$"0    .    1    .    2    .    3    ."
  66. 660 print#4,p$"          0         0         0"
  67. 670 fori=stos+960step40
  68. 680 print#4,c$i;:forx=0to39:print#4,d$;:next:print#4,"[212]"b$:nexti
  69. 690 print#4,c$p$"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  70. 700 gosub520:return
  71.